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This instant outlines the FORTRAN Version 5 language. 
FORTRAN Version 5 complies with the American National 
Standards Institute FORTRAN language described in 
document X3.9-1978 and known as FORTRAN 77. .FORTRAN 
Version 5 extensions to FORTRAN 77 are indicated by 
shading. Detailed information is contained in the 
FORTRAN Version 5 reference manual. 

The FORTRAN 5 compiler operates in conjunction with the 
COMPASS 3 assembly language processor under control of: 

9 NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems . vb 

® NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, and 74; and 6000 Series Computer 
Systems 

® SCOPE 2 for CONTROL DATA CYBER 170 Model 176, 
CYBER 70 Model 76, and 7600 Computer Systems. 

This instant provides a brief description of the major 
FORTRAN 5 language features. It is intended for 
programmers familiar with FORTRAN 5. 

Detailed information can be found in the listed 
publications. The publications are listed 

alphabetically within groupings that indicate relative 
importance to readers of this manual. 

The NOS manual abstracts and the NOS/BE ... manual 
abstracts are instant-sized manuals containing brief 
descriptions of the contents and intended audience of 
all NOS and NOS product set manuals, and NOS/BE and 
NOS/BE product set manuals, respectively. The 
abstracts manuals can be useful in determining which 
revision level of software documentation corresponds to 
the Programming Systems Report -CPSR3- level of installed 
site software. 

The following publications are of primary interest: 

Publication 

Publication Number 

FORTRAN Version 5 

Reference Manual 60481300 

NOS Version 1 Reference Manual 

Volume 1 of 2 60435400 
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N0S/K Version 1 Reference Manual 
SCOPE Version 2 Reference Manual 60497300 

Ybe following publications are of secondary interest: 

Publication 

Publication Number 

CYBER Interactive Debug Version 1 

Reference Manual 60481400 

CYBER Record Manager Advanced Access 

Methods Version 2 Reference Manual 60499300 

CYBER Record Manager Basic Access 

Methods Version 1-5 Reference Manual 60495700 

M0S Version 1 Manual Abstracts 84000420 

NOS/BE Version 1 Manual Abstracts 84000470 

Software Publications Release History 60481000 

Sort/Herge Version 4 and 1 

Reference Manual 60497500 


CSC Manuals can be ordered from Control Data 
Corporation, Literature and Distribution 
Services, 308 North Dale Street, St- Paul, 
Minnesota 55103. 
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Certain notations are used throughout the manual with 
consistent meaning. These notations are: 

UPPERCASE Uppercase words in language syntax 

indicate statement keywords or symbols 

to be written as shown. 

lowercase Lowercase words in language syntax 

indicate names, numbers, symbols, or 

entities to be supplied by the 

programmer. 

Brackets in language syntax enclose 

optional items that can be used or 
omitted. 


| J. Braces in language syntax indicate that 

only one of the vertically stacked 
items can be used. 

Ellipsis in language syntax indicates 
that the preceding optional item in 
brackets can be repeated as necessary. 

A Delta in language syntax indicates a 

blank character. 

Shading Shading in language syntax, language 
descriptions, and program examples, 
indicates extensions to FORTRAN 77. 
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LANGUAGE ELEMENTS 

This section describes the language elements of 
FORTRAN 5. 

SYMBOLIC NAMES 

Symbolic names are 1-6 or 7 letters and digits; the 
first character must be a tetter. 


FORTRAN CHARACTER SET 

The FORTRAN character set is composed of the following 
symbols: 


Alphabetic: A to Z 
Numeric: 0 to 9 

, comma 
: „ colon 

* apostrophe (CDC 
graphic f ) 

. decimal point 
$ currency symbol 
blank 
” quote 

(CDC graphic 5*) 

Any character acceptable to the operating system can be 
used in Hollerith or character information and 
comments. Blanks are significant only in character and 
Hollerith constants and character and Hollerith edit 
descriptors. 


Special: = equal 
+ plus 
- minus 


* asterisk 
/ slash 

( left parenthesis 
) right parenthesis 


FORTRAN STATEMENTS 


Column Contents 

1 C or * indicates comment line. 

1-2 C$ indicates compiler directives. 

1-5 Statement label (any 1- to 5-digit 

positive nonzero integer). 

6 Any character other than blank or zero 

denotes continuation (columns 1 through 

5 must be blank). 


60483900 A 


1 



7-72 


FORTRAN statement. 


73-80 Identification field; not processed by 

the compiler, but printed with the 
source listing. 

Statements are written in columns 7 through 72; blanks 
are ignored except in '|i^!|il811||®|| character fie Ids. 
All 80 columns can be used for data input. Statements 
can be labeled by an integer constant in the range 1 
through 99999. 


PRINTER CONTROL CHARACTERS 


is 


Character 


Blank 

0 

1 


+ 


Any other 
character 


Action 

Space vertically one line, then print. 

Space vertically two lines, then print. 

Eject to first line of next page before 
printing. 

Do not advance before printing; allows 
overprinting. 

,. : system : ' reference 

manual.. 


CONSTANTS 

A constant is a fixed quantity. Table 1 lists the 
types of constants and gives a brief description of 
each. 


A variable is a quantity that can be changed. It is 
composed of 1-6 or § 7 £ letters or digits; the first 
character must be a letter. 


A variable not defined in a type declaration is: 
A-H,0-Z Real 

I-N Integer 
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Table 2 lists the types of variables and gives a brief 
description of each. 


A FORTRAN array is a set of elements identified by a 
single name. The name is composed of 1 through 6 or 7 
letters and digits and begins with a letter. The array 
name and its dimensions must be declared in a 
DIMENSION, COf^ON, or type statement. Arrays can have 
one to seven dimensions. The declaration of array 
dimensions takes the following form: 

array(dC,d3...) 


array Is the symbolic name of the array. 

d Specifies the bounds of an array 

dimension and takes the form: 

Clower: I! upper 

lower Specifies the lower bound of the 

dimension. The lower bound can be an 
integer expression with a positive, zero, 
or negative value. If omitted, the lower 
bound is assumed to be 1. 


upper Specifies the upper bound of the 
dimension. The upper bound can be an 
integer expression with a positive, zero, 
or negative value. The upper bound must 
be greater than or . equal to the lower 
bound. 


Example: 

REAL 

TABLE(4,3) 

INTEGER XC-10:10) 


References to complete arrays or to specific array 
elements can be made. A reference to a complete array 
is to the array name. A reference to a specific 
element involves the array name followed by a subscript 
specification. The format for array element references 
is as follows: 

array(eC,e3_) 
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TABLE 1. LIST OF CONSTANTS 
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TABLE 1. LIST OF CONSTANTS (Contd) 
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TABLE 2. LIST OF VARIABLES 
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array Is the symbolic name of the array. 

e Is a subscript expression that is an 

integer, real, double-precision, complex, 
or Boolean expression. 

Examp Le: 

X=DZ(12) 


CHARACTER SUBSTRINGS 

Specific parts of a character string can be defined or 
referenced with character substring references. A 
character substring reference has the following format: 

char(Cfirsti:[Last]) 

°har Is the name of a character variable or an 

array element. 

first Specifies an integer, real, double- 

precision, Boolean, or complex expression 
for the position of the first character 
of the substring. If first is omitted, 
the value is one. 

last Specifies an integer, real, double"- 

precision. Boolean, or complex expression 
for the position of the last character in 
the substring. If last is omitted, the 
value is the length of the string. 

Examp le: 

CHARACTER SIX6,S2*3,S3*4 
DATA SI/'STRING'/ 


S2=S(1:3) 

S3=S (3:) 

In this example, S2 has the value 'STR* and S3 has the 
value 'RING'. 
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STATEMENT FORMS 


The following 
statements: 

symbols are used in the 

description 

V 

Variable, array element, or 

subst ring 

s l 

Statement label 


i v 

Integer variable 


name 

Symbolic name 



u Input/output unit: 1- to 3-digit decimal 

integer constant; integer variable with 
value of: 0 through 999 or a Hollerith 
value denoting the file name, left- 
justified with zero fill 


fn 

Format designator, statement 

label. 

or 


array name 




ios 

Integer variable into 

whi ch 

one of 

the 


following values is 

placed 

after 

the 


input/output operation 

is comp 

Lete: 



<0 

End-of-file 


=0 

Operation completed 

normally 

>0 

Number of error 

conditions 


detected 



n 

String of 1 to 5 digits or character 
constants 

con 

Constant, constant expression, 

extended constant expression 

or 

c .. „ c 

String of 1 to 70 characters 


earn 

Arithmetic or masking expression 


erl 

Relational or logical expression 


ce 

Character expression 


a 

Variable or array name 


iolist 

Input/output list specifying items to 
transmitted 

be 

recn 

Record number 
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An assignment statement assigns a value to a variable. 
Table 3 lists the format and an example for each of the 
assignment ' tatements. 


TABLE 3. LIST OF ASSIGNMENT STATEMENTS 


Type 

Format 

--- 1 

Example 

Arithmetic 

v = earn 

A = B + C 

Logical 

v = erl 

LOGICAL L,M,N 

L = M .AND. N 

M = B .EQ. C 

Character 

v = ce 

CHARACTER A*2,B*4 

A = B 

Mu 11 ip Le 

v = Cv=3 
_ expression 

CD 

o' 

ssSSSSMS;:;'' 

t<i 

H 

>• 

n 

x 

Boolean 

. v = expression 
(arithmetic or 
Boolean) 

■' A “ 
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CONTROL STATEMENTS 

The control statements provide a means of altering, 
interrupting, terminating, or modifying the normal flow 
of a program. Table 4 lists the type, the format, and 
an example for each of the control statements. 


SPECIFICATION STATEMENTS 


Specification statements are nonexecutable and are used 
to specify the characteristics of symbolic names used 
in the program. (See table 5.) 


PROGRAM UNITS AND PROCEDURES 

A program unit is a group of FORTRAN statements with 
optional comments, terminated by an END statement. A 
procedure can be a function subprogram, a subroutine 
subprogram, or a statement function. (See table 6.) 


Input and output involve reading records from files, 
and writing records to files. (See table 7.) 


EXTENDED INTERNAL FILES 

The internal transfer of data is accomplished through 
the ENCODE and DECODE statements. ENCODE is the 
extended internal file output statement and DECODE is 
the extended internal file input statement. The 
formats are: 

DEC ODE(c,fn,v) i o list 

Example: 

DECODE(77,17,CARD)INK 

ENCODE(c,fn,v)iol1st 
Example: 

ENCODE <40,1,ALPHA)A,B,C 


12 
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TABLE 4 = LIST OF PROGRAM CONTROL STATEMENTS 
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TABLE 4. LIST OF PROGRAM CONTROL STATEMENTS (Contd) 




I 
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4 
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TABLE 5. LIST OF SPECIFICATION STATEMENTS 
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TABLE 5. LIST OF SPECIFICATION STATEMENTS (Contd) 
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fin Is a character expression whose 
value is the name of the file 
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FILE POSITIONING STATEMENTS 


File positioning statements are used to position files 
connected for sequential access. Table 8 lists the 
name, the format, and an example of each statement. 



FORMAT SPECIFICATION 

Format specifications are used to produce output or 
read input that consists of strings of display coded 
characters: 

si FORMATCflist) 

flist Is a list of items, separated by commas. 
Example: 

100 FORMAT(I6,F7.3, 214) 


DATA CONVERSION 

The data conversion to be performed is specified by 
format specifications. Format specifications are 
composed of repeatable and nonrepeatable edit 
descriptors. Tables 9 and 10 summarize the edit 
descriptors. 
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Overlays reduce the amount of storage required and make 
efficient use *of the available field length. An 
overlay is identified by the OVERLAY statement and is 
called by the OVERLAY call: 

CALL OVERLAY(fname,i,JL^fecalt£*k33> 

fname Is either the file name of the file 

containing the (i # j> overlay to be 

executed fif k is absent or zero)^ or the 
. overlay name <if k is nonzero)* 

i,j Are the overlay leyel numbers and can be 

an integer expression. 

recall Is the recall parameter and can be an 
arithmetic expression with the value 

6HRECALL, or a character expression with 
the value 1 RECALL*- 

k Is an . indicator affecting the 

interpretation of fname. 

Example: 

CALL OVERLAY(3HS0B, 1,0,6HRECALO 
The OVERLAY statement is: 

OVERLAY(tfname^i C^origl t,0V=nI) 

fname Is the name of the file in which the 

generated overlay is to be written* 

Are the overlay level numbers in octal (0 
through 77). 

orig Is an optional parameter specifying the 

origin of the overlay; not allowed for 
(0,0) overlay. The loader accepts any of 
the following forms: Cnnnnnn, 0-nnnnnn, 
0=ept, O^ept Hvnnnm - 

0V=n Is an optional parameter specifying that 

the overlay generator is to generate an 
overlay structure suitable for Fast 
Overlay LoaderCFQL). 

Example; 

OVERLAYCX FILE,0,Q,0V~2> 
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DEBUGGING 


Two debugging aids are available to help the user find 
execution-time errors in a FORTRAN program. They are 
CYBER Interactive Debug (CID) and Post Mortem Dump 
(PMD) . 

CYBER Interactive Debug is a supervisory program that 
allows the user to monitor and control the execution of 
a FORTRAN program from a terminal. To use all of the 
capabilities of CID, the user must specify the DEBUG 
control statement prior to compilation or the FTN5 
control statement must specify the DB=ID parameter. 
For further details on CID, see the CYBER Interactive 
Debug Version 1 reference manual. 

Post Mortem Dump is a program that analyzes the cause 
of execution-time errors in FORTRAN programs. To use 
PMD, the DB=PMD parameter must be specified on the FTN5 
control statement. PMD is invoked by hardware/software 
errors and can also be invoked intentionally by the 
user. 

PMD has the following optional calls: 

9 CALL PMDARRY(i,j,k,l,m,n,o) 

Causes dumps of arrays to be limited to elements 
where subscripts do not exceed i,j,k,l,m,n, and o 
for their respective dimensions; the integers i 
through o represent the first through seventh 
dimensions respectively. 

Example: 

CALL PMDARRY(3,4,1) 

• CALL PMDDUMP 

Causes a dump of variables in the calling routine, 
not at once, but when an abort occurs or when 
PMDLOAD or PMDSTOP is called. PMDDUMP and PMDLOAD 
or PMDSTOP need not be called from the same 
routine. 

Example: 

CALL PMDDUMP 


4 

« 


I 

« 


CALL PMDLOAD 

Causes an immediate dump of variables in the 
calling routine and in any routines that have 
called PMDDUMP. 
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Example: 


CALL PMDLOAD 
« 

• CALL PMDSTOP 

Causes an immediate dump of variables in the 
calling routine, all routines in the trace-back 
chain, and any routines that have called PMDDUMP. 

Example: 

CALL PMDSTOP 

See the FORTRAN 5 reference manual for further details 
on PMD. 


C$ DIRECTIVES 

A C$ directive is a special form of comment line that 
controls compiler processing* 


immm control 

A listing control directive modifies the state of list 
option switches that have been initially enabled on the 
FTN5 control statement- It has the following format: 

C$ Ll$T(»£*c3 C^pl=c33,**) 


P 

Att 

Examples* 

C$ LIST($=0> 
C$ LIST(A) 

€$ USTCALL) 


is S, 0^ R, A, 8, or Alt. 

Source lines 

Object code 

Symbol references 

Symbol attribute list 

Symbol map list 

Equivalent to S # 0,'R # - A # 8 
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CONDITIONAL COMPILATION 

A conditional compilation directive controls whether 
the lines immediately following the directive are to be 
processed or ignored by the compiler* The formats of 
;the categories of the conditional compilation! 
directives are: 

C% XF<e)Et,DlabT 

e Is a logical constant expression 

lab Is a label* It must be a symbolic name* 

Example: 

C$ IF (M .EQ. 0) 

C$ ELSE E,Ub3 

lab Is a, label* It must be a symbolic name* 

Example: 

C$ ELSE 

C$ ENDIF E^labT 

lab Is a label, it must be a symbolic name. 

Example: 

C$ ENDIF 

A collation control directive directs the 
interpretation of character relational expressions in 
the lines following the directive and preceding either 
another collation .control directive or the END 
Statement of the program unit. It has the following 
format; 

p Is FIXED or USER* 

. Example: 

C$ COLLATE(USER) 
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DO LOOP CONTRO 


A DO Loop control directive modifies the state of on 
or both DO loop switches. It affects th< 
interpretation of only those DO loops who's- 
DO statements follow the directive in the same prograj 
unit. The format is as follows: 

C$ DO (p[=c3 C,pC=c]D) 

p Is either 01 or LONG. 0T=minimum tri| 

count. LONG^maximum trip count. 

c Is a constant or the symbolic name of . 

constant. 

Example: 

C$ D0(L0NG=1) 


FORTRAN LIBRARY: INTRINSIC FUNCTION 

Table 11 gives a List and brief description of t h« 
FORTRAN library intrinsic functions. 

LIBRARY SUBROUTINES AND FUNCTION: 

Library subroutines and functions are utitit- 
subprograms supplied by the system: 

® DATE( ) 

Returns current date in format mm/dd/yy. 

® JDATEC ) .. 

Returns current date in format yyddd. Noi 
available on SCOPE 2. 

• TIME C ) or CLOCKC ) 

Returns current time in format hh.mm.ss. 

® CALL DISPLA(h,k) 

Places a name and a value in the dayfi le 
Parameter h is a character expression to b< 
displayed. Parameter k is a real or integei 
variable or expression whose value is to b< 
displayed. 
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TABLE 11. LIST OF INTRINSIC FUNCTIONS 
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MOD Integer N=M0D(I,K) 
AMOD Real G=M0D(C,D) 
DMOD Double H=M0D(U,V) 




TABLE 11. LIST OF INTRINSIC FUNCTIONS (Contd) 
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TABLE 11. LIST OF INTRINSIC FUNCTIONS (Contd) 
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9 CALL REMARKCh) 


Places a message in the day-file. Parameter his a 
character expression. 

• CALL SSWTCH(i,j) 

Tests sense switches. If sense switch i is on, j 
is set to 1; if sense switch i is off, j is set 
to 2, Parameter i is a sense switch number. 
Parameter j is an integer return variable, 

© CALL GETPARM(c1,c2,i) 

Accesses user parameters that have been declared on 
the execution control statement- Parameter cl 1$ 
the character variable or array element to receive 
the parameter name. Parameter c2 is the character 
variable or array element to receive the parameter 
value. Parameter i is the integer return code. 

©CALL RANSET(n) 

Initializes the seed of RANF. Parameter n is a 

• CALL RANGEKn) -:^V; | 

Obtains the current seed of RANf between 0 and 1. 
Parameter n is the symbolic nanse to receive the 
random number seed. 

INPUT/OUTPUT STATUS CHECKING 

Input/output status checking can be done by using the 
following functions: 

• UNIT(u) 

Checks the status of a BUFFER IN or BUFFER OUT 
operation for an end-of-file or parity error 
condition on logical unit u. 

Example: 

IFCUNIT (5))12,14,16 
© EOF(u) 

Tests for an end-of-file condition on unit u 
following a formatted, list directed, NAMELIST, or 
unformatted sequential read. 
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Example: 

IF (EOF (5). NE ,0)*G0 TO 20 

• IOCHEC(u) 

Tests for a parity error on unit u following a 
formatted, list directed, NAMELIST, or unformatted 
read. 

Example: 

J=I0CHEC(6) 

» LENGTH(u) 

CALL LENGTHX(u,nw,ubc) 

Returns information regarding the previous BUFFER 
IN or READMS call of the file designated by u. 
Parameter nw is the argument set to the number of 
words read. Parameter ubc is the argument set to 
the number qf -.unjused ftits in the last: w.brd of the 
transfer. 

• CALL LABEL(u,labinfo) 

: Passes rnformaf-iigb to the operation system. 

Parameter labinfo specifies the array for label 
information. 

• CALL MO V LEV(a,b,n) 

Transfers n consecutive words of data between a 
and b. Parameter a specif i es a variable that is 
the starting address of the data to be moved. 
Parameter b specifies a variable that is the 
starting address of the receiving location. This 
function is normally used to move data to and from 
ECS or LCM. 

Example: 

CALL MOVLEV(01,02,1000) 

• CALL M0VLCH(a,b,n) 

Transfers n consecutive characters between a 
and b. Parameter a specifies a variable, array 
element, or substring that represents the starting 
location on the character string to be moved. 
Parameter be specifies a variable, array element, 
or substring that represents the starting location 
of the receiving area. 



« 

% 


« 

i 
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Example: 

CALL H0VLCHCCH1<S)*CH2<3),369) 

• CALL CONWECCU/Cs) \ 

Connects files, to. the terminal* •Parameter cs is 
the character set designator C0-Pisplay^1=ASCn 96 
2~ASCII 256 >. 


* CALL MSimiu) 

disconnects a file from within a program 


RANDOM FILE ACCESS 

The following mass storage . input/output subroutines 
prov ide.. random, fi le access capability: • 

* CALL OPENWS(u,ix,lngth,t) 

Opens the mass storage file and informs the system 
that it is a random file. Parameter ix is the name 
of the array -.containing the . master index. 
Parameter Ingth i$ the length of. the master index. 
Parameter t .is the type of index* . 

Example: 

CALL OPENMS(5,1,11,0) 

9 CALL WRITMS(u,fwa,n,k/ r /S> 

Transmits data from central memory to the file. 
Parameter fwa is the name of an array in central 
memory or LCM. Parameter n is the number of 60-bit 
word to be transferred. Parameter k is the record 
key. Parameter r specifies rewrite. Parameter s 
specifies subindex flag. 

. E x a m p l e : ; v : ■. 

CALL WHITESC3/0ATA,25^6^1) 

• CALL READIESCu,fwa,n,k) 

Transmits data from the file to central memory. 
Parameter U/ fwa, n f k are the same as in. CALL 
WRITWS. 
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Example: 

CALL REA&MS(3,M0RI>AT,25,2> 

♦ CALL CLGSMSCu) 

Writes the master index from central memory to the 
file and closes the file. 

Example: 

CALL CL0SMSC2) 

• CALL STIN1)XCu,ix,lngth,t> 

. Selects a different array to be used as the current 
index to the file. Parameter ix is the name of the 
array in central memory containing the subindex. 
Parameter Ingth is the length of the subindex. 
Parameter t is the type of subindex. 

Example: 

CALL STINDX(3,SUBXX,10,0) 

DEBUGGING ROUTINES 

The following is a list of miscellaneous debugging 
routines: 

« CALL STRACE 

Provides traceback information from the subroutine 
calling STRACE back to the main program. 

• LEGVAR(a) 

Checks the value of variable a and returns the 
result -1 if the variable is indefinite, +1 if out 
of range, and G otherwise. Parameter a is the 
argument. 

* CALL SYSTEMCernum,mesg) 

Enables the user to issue an execution-time error 
message. Parameter ernum is the error number. 
Parameter mesg is the error message. 

Example: 


I 

€ 

I 

I 

< 


CALL SYSTEM(3, ! CHECKDATA') 


» CALL SYSTEMCCer mum, sped ist) 

Enables the user to alter the contents of the error 
table, which contains specifications that regulate 
error processing- Parameter errnum is the error 
number* Parameter speclist is an integer array 
containing error processing specifications in 
consecutive locations. 

Example: 

CALL $Y$TEMC<115/IRAY) 

• CALL LIMERR(lim) 

Enables the user to input data without the risk of 
termination when improper data is encountered. 
Parameter tim is the limit for the number of errors. 

Example: 

CALL LIMERR (200) 

* NUMERRC ) 

NUWERR returns the number of errors since the last 
LIMERR call. 

Example: 

If (NUMERIC ) »GT. 0) GO TO 500 


COLLATING SEQUENCE CONTROL 

The following utility subroutines provide collating 
sequence control: 

« CALL COLSEQ(a) 

Selects a processor-defined, user-specified weight 
table* Parameter a is a character expression that 
is one of the following: ASCXI6, C0B0L6, DISPLAY, 
or STANDARD. 

Example; 

CALL C0L$EO< * C0B0L6’) 
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# CALL WTSETCind,wt) 

Modifies the user-spec if ied weight table y 

Parameter ind is a character expression* 
- Parameter wt is an integer expression. 

PxampLe; 

CALL WT$£T{*$ f ,ICHAR( f ,‘» 

» CALL CSOWiCstf) 

Specifies a partial collating' sequence* 
Parameter str is a character expression* 


SAMPLE DECK STRUCTURES 


Refer to the operating system reference manual for 
required job and accounting statements and for details 
of control statements. 

COMPILE AND EXECUTE 

A sample deck structure to compile and execute a 
FORTRAN program is shown in figure 1. 


COMPILE AND PRODUCE BINARY CARDS 

A sample deck structure to compile and produce binary 
cards is shown in figure 2. 

LOAD AND EXECUTE BINARY PROGRAM 

A sample deck structure to load and execute binary 
programs is shown in figure 3. 

COMPILE ONCE AND EXECUTE WITH 
DIFFERENT DATA DECKS 

A sample deck structure to compile once and execute 
with different data decks is shown in figure 4. 


COMPILATION AND EXECUTION 
WITH OVERLAYS 

Preparation of Overlays 0,0; 1,0; and 1,1 are shown in 
figure 5. 
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Figure 1. Sample Deck Structure to Compile and Execute 
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source deck 



Figure 2. Sample Deck Structure to Compile and Produce Binary Cards 


TERMINAL USAGE FORMATS 


Terminal usage formats to compile and execute under NOS 
in the FORTRAN subsystem and the BATCH subsystem are 
described in this section. For other terminal usage 
refer to the NOS reference manual. 

The formats in figure 6, create programs and input data 
at the terminal. 



The format in figure 7, compiles and executes existing 
programs at the terminal. 


SORT/MERGE INTERFACE 

Sort/Merge version 4 and 1 processing can be initiated 
through FORTRAN 5 call statements. Field length 
reduction must be off or additional field length 
requested. A list and description of the Sort/Merge 
calls are shown in table 12. 
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Figure 3. Sample Deck Structure to Load and Execute Binary Programs 
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Figure 5. Sample Deck Structure of Overlays 
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Login 


/GET,FI LEX 
/GET,FI LDATA 
/FTI\!5,I=FILEX,L=0 


/LGO 


Figure 7. Format to Compile and Execute 
Existing Programs at Terminal 


FORTRAN CONTROL STATEMEN1 

The FORTRAN control statement calls the compiler 
specifies the files to be used for input and output 
and indicates the type of output to be produced 
Table 13 lists the FTN5 statement parameters, th 
defaults, and the initial values. 
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TABLE 12. SORT/MERGE CALLS 
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TABLE 12. SORT/MERGE CALLS (Contd) 





I 



o 







s 


c_ 



V +J 







L_ 


03 



t_ 







a> 


a 



0) —1 • 


V 





XI 


E 



d ns a 

t_ 








O 



E 3 a> 

03 

+— 





3 


o 



3 cr to 

+-> 

c 





c 





c 0 ) —» 

4- 

• • 





4- 


c_ 



o 

<0 

to v 

B 




0 ) o 


O 



tt> 0) O 


03 - 

«* 




> 


4- 



> +-* 

>s 

E 0- 

3- 




•1- 0. 





■r 03 C 

-* 

e s: 

c_> 



« 

+-» a> 


-> 



-M —* •«“ 

a> 

O X 

< 




A3 "a 


03 



03 — 1 

4-» 

U Cl 

a: 




03 l- 


O 



03 O TJ 

03 

— 

3— 




a> o 


O' 



<d o a> 

»f— 

X 

X 




c 


a> 



C T3 

X 

X s 

UJ 

• 



c 





O 3 

03 

» 

» 

03 



03 •<- 


0) 



03 4-3 —> 

E 

X Q_ 


c 





c_ 



U 

E 

0) E 


•1— 



>s 4-» 


03 



>n -M C 

•r~ 

+-* X 

•• 

to 



X <T5 





X 03 *r- 


03 O 

LU 

to 



e 


a> 



E 

— » 

c_ - 


03 



X L. 


o 



-o c_ a; 

_ • 

03 

<c 

O 



<u o 


C 



<u o x 

03 

a v 

Q_ 

o 



+-> 4- 


<u 



+J 4- 

C_> 

03 

£ 

£_ 



03 


o 



03 4-» 


to+~ 

O 

CL 



c —* 


O' 



C —' to 


* 

<_> 




•«“ 03 


a; 



■1- 03 3 

» 

to a. 

— 

03 


c 

e + j 


(0 



E +-* E 

to 

C E 


03 


o 

L- O 





t_ o 

C 

o X 

V 

t_ 


• f— 

<D O 


03 



a> o x 

o 

•I- Cl 


03 


+J 

4-» 


c 



+-> O 

•1— 

+J X- 

1— 

z: 


Q. 

t_ 


•r* 



C_ -i- 

4-* 

a o 

O 



•1— 

V o 


+-> 



VOX 

Q. 

o > 

E 

4-3 


L_ 

>s 


03 



>s 3 

O 

•» 


t_ 


O 

03 QZ 


- } 


• 

03 CC 


4- 

N 

O 


to 



_# 


Gf 

t_ V 

03 

O V 

•» 

00 


a> 

c 


o 


LU 

C_ C t- 

c 

— 

oz 



a 

03 -r— 


O 


CO 

03 •*“ d) 

•I— 

to z 

LU 

03 







s: 

4-> 

—> 

03 1—1 

O 

c 



L- CO 


<u 


00 

L (A U 

X . 

•>“ <t 

QZ 

•1“ 



03 L- 


sz 



0J C_ 03 

C f\J 

C- |— 

O 

t_ 



03 0) 


+J 


c. 

CT3 aj c_ 

03 

03 UJ 

» 

13 



CD 4-» 




o 

03 +-» 03 

X UJ 

to az 


X 



■M O 


c 



-M O X 

i a. 

— 

s. 




C 03 

• 

•r— 


>- 

C 03 O 

X o 

X 


X 



•r- t_ 

C 



UJ 

•r- c_ 

C_ c_3 

<D V-f— 

03 



03 

o 

CO 



03 4-> 

O CO 

t_ _ 


to 



4- JZ 

•r~ 

C_ 


se 

4- X CO 

o 

0) >- 

Q_ 

D 



O O 

•M 

<u 


00 

O O 03 

03 c 

X Ll_ 

E 





03 

4-> 



-> 

«- o 

t~ »—t 

X 

03 



03 sz 

_ t 

o 


E 

03 X 


o az 

CS 

X 



e +j 

- • 

03 


O 

E •* J 03 

—> UJ 

C UJ 

o 




03 *r- 

o 

C_ 


c_ 

oj •*- X 

03 LD 

o > 

z 

o 



Z 3 

a 

03 


U- 

Z 3 4-* 

az 

z - 

— 

4-3 





_C 

• 



O UJ 








o 

to 



03 E 



CO 






<u 



CL E 



4-> 





o 

to 



CO CO 



•r* 



a 


l_ 

O 


U 


4-> 


X 



<u 


o 

CL 

a 

03 

to 1 - 

CO 


03 



a 


E 

t_ 

<u 

CL 

03 o 

•r— 





CO 



D 

to 

to 

•1— 

—» 


03 





t_ 

Q. 

—J 

3 

3- 

4-» 


X 



0) 


o 


o 

cr 

a: 

CL 


o 



CO 



C 

o 

03 

o o 

O 


O 





o 

o 



03 CO 



c 





3 

CO 



CL E 



3 





3- 

•r- 



CO CO 



O 












T* 












03 





/N 







E 





o 







03 





(13 







C 

/-s 




a 







X 

■ 




CO 







3 

■ 




3 







to 

■ 




O' 







s n 




a; 








r\j 

_ » 



s 




4-J 



e 

Q3 

_1 



O' 




CO 



D 

E 

(0 



a> 




•*— 



C 

03 

u 



to 




-» 



4-> 

C 




_ ’ 




4-> 



•«~ 

X 




o 




a 



X 

D 




o 




o 



0) 

to 




W 




N-/ 



V-' 

«n 




3 




3- 



z 

CM 







Q. 



3 

E 




UJ 




O 



o 

O 




z: 




E 



s: 

C 




03 




CO 



C/3 

4-3 












■r~ 




X 




X 



X 

X 




_l 




X 



X 

03 




< 












C_3 




C_) 



o 

L-J 


62 


60483900 A 
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tDoes not apply to .SCOPE 2. If a file is to be accessed with Record Manager subroutines, OPENM should 
be called prior to SMFILE. 

ttNo parameters needed for exit number 1 if no input files exist. 
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CONTRpL DATA 
CORPORATION 



CORPORATE HEADQUARTERS, 8100 34th AVE. SO. 

MINNEAPOLIS, MINN, 55440 

SALES OFFICES AND SERVICE CENTERS 
IN MAJOR CITIES THROUGHOUT THE WORLD 


